home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / STARMAP.DIR / 00010_Script_buildStarMapButtons < prev    next >
Text File  |  1995-11-16  |  12KB  |  293 lines
  1. on buildStarMapButtons
  2.   global gNS, gSNN1a,gSNN1b,gSNN1c,gSNN2a,gSNN2b,gSNN2c
  3.   global gSNN3a,gSNN3b,gSNN4a, gSNN4b, gSNS1, gSNS2, gSNS3, gSNS4,gSS1a, gSS1b --initialized in buildStarMapButtons2
  4.   if voidP(gNS) then
  5.     set gNS to [:] --Night Sky
  6.     addProp gNS, 5,  LO(5,"SNN1",5,0)
  7.     addProp gNS, 6,  LO(6,"SNN2",6,0)
  8.     addProp gNS, 7,  LO(7,"SNN3",7,0)
  9.     addProp gNS, 8,  LO(8,"SNN4",8,0)
  10.     addProp gNS, 9,  LO(9,"SNS1",9,0)
  11.     addProp gNS, 10, LO(10"SNS2",10,0)
  12.     addProp gNS, 11, LO(11,"SNS3",11,0)
  13.     addProp gNS, 12, LO(12,"SNS4",12,0)
  14.     
  15. --    addProp gNS, 17, art(17,"SF.PIC","SFR.PIC","SFP.PIC","playHelp"&"e&"S""e) --fiorella
  16.     addProp gNS, 17, art(17,"SF.PIC","SFR.PIC","SFP.PIC","playHelp") --fiorella
  17.     addProp gNS, 18, art(18,"SHIDE.PIC","SHIDER.PIC","SHIDEP.PIC","hideNames") --hide names
  18.     addProp gNS , 19, art(19,"SSHOW.PIC","SSHOWR.PIC","SSHOWP.PIC","showNames") --show names
  19.     addProp gNS, 20, art(20, "ST.PIC", "STR.PIC", "STP.PIC", "retrace")
  20.     addProp gNS, 21, art(21,"SC.PIC", "SCR.PIC", "SCP.PIC", "doContents")
  21.     
  22.     set gSNN1a to [:] --Top Left North Night Sky
  23.     --    addProp gSNN1a, 4,  t("SNN3","Down")
  24.     --    addProp gSNN1a, 5,  t("SNN2","Right")
  25.     addProp gSNN1a, 6,  LO(6,"QMG1R", 6, 27)
  26.     addProp gSNN1a, 7,  LO(7,"Q273V", 7, 28)
  27.     addProp gSNN1a, 8,  LO(8,"G426V", 8, 29)
  28.     addProp gSNN1a, 9,  LO(9,"G464V", 9, 30)
  29.     addProp gSNN1a, 10, LO(10, "G456H", 10, 31)
  30.     addProp gSNN1a, 11, LO(11,"G453V", 11, 32)
  31.     addProp gSNN1a, 12, LO(12,"G476V", 12, 33)
  32.     addProp gSNN1a, 13, LO(13,"GM49V", 13, 34)
  33.     addProp gSNN1a, 14, LO(14,"GM90V", 14, 35)
  34.     addProp gSNN1a, 15, LO(15,"G443V", 15, 36)
  35.     addProp gSNN1a, 16, LO(16,"G421V", 16, 37)
  36.     addProp gSNN1a, 17, LO(17,"GM84V", 17, 38)
  37.     addProp gSNN1a, 18, LO(18,"GM87V", 18, 39)
  38.     addProp gSNN1a, 19, LO(19,"GVIRV", 0, 40)
  39.     addProp gSNN1a, 20, LO(20,"GM91V", 20, 41)
  40.     addProp gSNN1a, 21, LO(21,"GM88V", 21, 42)
  41.     addProp gSNN1a, 22, LO(22,"GM10V", 22, 43)
  42.     addProp gSNN1a, 23, LO(23,"G136V", 23, 44)
  43.     addProp gSNN1a, 24, region("SNN1",1)
  44.     addProp gSNN1a, 25, region("SNN1",1)
  45.     addProp gSNN1a, 27,  LO(27,"QMG1R", 6, 27)
  46.     addProp gSNN1a, 28,  LO(28,"Q273V", 7, 28)
  47.     addProp gSNN1a, 29,  LO(29,"G426V", 8, 29)
  48.     addProp gSNN1a, 30,  LO(30,"G464V", 9, 30)
  49.     addProp gSNN1a, 31, LO(31, "G456H", 10, 31)
  50.     addProp gSNN1a, 32, LO(32,"G453V", 11, 32)
  51.     addProp gSNN1a, 33, LO(33,"G476V", 12, 33)
  52.     addProp gSNN1a, 34, LO(34,"GM49V", 13, 34)
  53.     addProp gSNN1a, 35, LO(35,"GM90V", 14, 35)
  54.     addProp gSNN1a, 36, LO(36,"G443V", 15, 36)
  55.     addProp gSNN1a, 37, LO(37,"G421V", 16, 37)
  56.     addProp gSNN1a, 38, LO(38,"GM84V", 17, 38)
  57.     addProp gSNN1a, 39, LO(39,"GM87V", 18, 39)
  58.     addProp gSNN1a, 40, LO(40,"GVIRV", 19, 40)
  59.     addProp gSNN1a, 41, LO(41,"GM91V", 20, 41)
  60.     addProp gSNN1a, 42, LO(42,"GM88V", 21, 42)
  61.     addProp gSNN1a, 43, LO(43,"GM10V", 22, 43)
  62.     addProp gSNN1a, 44, LO(44,"G136V", 23, 44)
  63.     addProp gSNN1a, 45, region("SNN1",2)
  64.     addProp gSNN1a, 46, region("SNN1",2)
  65.     addProp gSNN1a, 47, region("SNN1",2)
  66.     
  67.     set gSNN1b to [:] --Top Left North Night Sky
  68.     --    addProp gSNN1b, 4,  t("SNN3","Down")
  69.     --    addProp gSNN1b, 5,  t("SNN2","Right")
  70.     addProp gSNN1b, 6,  LO(6,"GM64V", 6, 27)
  71.     addProp gSNN1b, 7,  LO(7,"Q275V", 7, 28)
  72.     addProp gSNN1b, 8,  LO(8,"GCOMV", 0, 29)
  73.     addProp gSNN1b, 9,  LO(9,"GC45R", 9, 30)
  74.     addProp gSNN1b, 10, LO(10, "GMICV", 10, 31)
  75.     addProp gSNN1b, 11, LO(11,"G463V", 11, 32)
  76.     addProp gSNN1b, 12, LO(12,"YM3_V", 12, 33)
  77.     addProp gSNN1b, 13, LO(13,"G539V", 13, 34)
  78.     addProp gSNN1b, 14, LO(14,"G538V", 14, 35)
  79.     addProp gSNN1b, 15, LO(15,"GM94V", 15, 36)
  80.     addProp gSNN1b, 16, LO(16,"G448V", 16, 37)
  81.     addProp gSNN1b, 17, LO(17,"G415V", 17, 38)
  82.     addProp gSNN1b, 18, LO(18,"GWHIV", 18, 39)
  83.     addProp gSNN1b, 19, LO(19,"G371V", 19, 40)
  84.     addProp gSNN1b, 20, LO(20,"Q231I", 20, 41)
  85.     addProp gSNN1b, 21, region("SNN1",0)
  86.     addProp gSNN1b, 22, region("SNN1",0)
  87.     addProp gSNN1b, 27,  LO(27,"GM64V", 6, 27)
  88.     addProp gSNN1b, 28,  LO(28,"Q275V", 7, 28)
  89.     addProp gSNN1b, 29,  LO(29,"GCOMV", 8, 29)
  90.     addProp gSNN1b, 30,  LO(30,"GC45R", 9, 30)
  91.     addProp gSNN1b, 31, LO(31, "GMICV", 10, 31)
  92.     addProp gSNN1b, 32, LO(32,"G463V", 11, 32)
  93.     addProp gSNN1b, 33, LO(33,"YM3_V", 12, 33)
  94.     addProp gSNN1b, 34, LO(34,"G539V", 13, 34)
  95.     addProp gSNN1b, 35, LO(35,"G538V", 14, 35)
  96.     addProp gSNN1b, 36, LO(36,"GM94V", 15, 36)
  97.     addProp gSNN1b, 37, LO(37,"G448V", 16, 37)
  98.     addProp gSNN1b, 38, LO(38,"G415V", 17, 38)
  99.     addProp gSNN1b, 39, LO(39,"GWHIV", 18, 39)
  100.     addProp gSNN1b, 40, LO(40,"G371V", 19, 40)
  101.     addProp gSNN1b, 41, LO(41,"Q231I", 20, 41)
  102.     addProp gSNN1b, 42, region("SNN1",2)
  103.     addProp gSNN1b, 43, region("SNN1",2)
  104.     addProp gSNN1b, 44, region("SNN1",2)
  105.     
  106.     set gSNN1c to [:] --Top Left North Night Sky
  107.     --    addProp gSNN1c, 4,  t("SNN3","Down")
  108.     --    addProp gSNN1c, 5,  t("SNN2","Right")
  109.     addProp gSNN1c, 6,  LO(6,"Q100R", 6, 27)
  110.     addProp gSNN1c, 7,  LO(7,"G331V", 7, 28)
  111.     addProp gSNN1c, 8,  LO(8,"G307V", 8, 29)
  112.     addProp gSNN1c, 9,  LO(9,"GM81V", 9, 30)
  113.     addProp gSNN1c, 10, LO(10, "GM82V", 10, 31)
  114.     addProp gSNN1c, 11, LO(11,"G268V", 11, 32)
  115.     addProp gSNN1c, 12, LO(12,"G4C4R", 12, 33)
  116.     addProp gSNN1c, 13, LO(13,"Q431R", 13, 34)
  117.     addProp gSNN1c, 14, LO(14,"YM67V", 14, 35)
  118.     addProp gSNN1c, 15, LO(15,"G227V", 15, 36)
  119.     addProp gSNN1c, 16, region("SNN1",0)
  120.     addProp gSNN1c, 17, region("SNN1",0)
  121.     addProp gSNN1c, 18, region("SNN1",1)
  122.     addProp gSNN1c, 19, region("SNN1",1)
  123.     addProp gSNN1c, 27,  LO(27,"Q100R", 6, 27)
  124.     addProp gSNN1c, 28,  LO(28,"G331V", 7, 28)
  125.     addProp gSNN1c, 29,  LO(29,"G307V", 8, 29)
  126.     addProp gSNN1c, 30,  LO(30,"GM81V", 9, 30)
  127.     addProp gSNN1c, 31, LO(31, "GM82V", 10, 31)
  128.     addProp gSNN1c, 32, LO(32,"G268V", 11, 32)
  129.     addProp gSNN1c, 33, LO(33,"G4C4R", 12, 33)
  130.     addProp gSNN1c, 34, LO(34,"Q431R", 13, 34)
  131.     addProp gSNN1c, 35, LO(35,"YM67V", 14, 35)
  132.     addProp gSNN1c, 36, LO(36,"G227V", 15, 36)
  133.     
  134.     set gSNN2a to [:] --Top Right North Night Sky
  135.     --    addProp gSNN2a, 4,  t("SNN4","Down")
  136.     --    addProp gSNN2a, 5,  t("SNN1","Left")
  137.     addProp gSNN2a, 6,  LO(6,"QMG1R", 6, 27)
  138.     addProp gSNN2a, 7,  LO(7,"Q273V", 7, 28)
  139.     addProp gSNN2a, 8,  LO(8,"G426V", 8, 29)
  140.     addProp gSNN2a, 9,  LO(9,"G464V", 9, 30)
  141.     addProp gSNN2a, 10, LO(10, "G136V", 10, 31)
  142.     addProp gSNN2a, 11, LO(11,"G456H", 11, 32)
  143.     addProp gSNN2a, 12, LO(12,"G453V", 12, 33)
  144.     addProp gSNN2a, 13, LO(13,"G476V", 13, 34)
  145.     addProp gSNN2a, 14, LO(14,"GM49V", 14, 35)
  146.     addProp gSNN2a, 15, LO(15,"GM90V", 15, 36)
  147.     addProp gSNN2a, 16, LO(16," G443V", 16, 37)
  148.     addProp gSNN2a, 17, LO(17,"G421V", 17, 38)
  149.     addProp gSNN2a, 18, LO(18,"GM84V", 18, 39)
  150.     addProp gSNN2a, 19, LO(19,"GM87V", 19, 40)
  151.     addProp gSNN2a, 20, LO(20,"GVIRV", 0, 41)
  152.     addProp gSNN2a, 21, LO(21,"GM91V", 21, 42)
  153.     addProp gSNN2a, 22, LO(22,"GM88V", 22, 43)
  154.     addProp gSNN2a, 23, LO(23,"GM10V", 23, 44)
  155.     addProp gSNN2a, 24, LO(24,"G536V", 24, 45)
  156.     addProp gSNN2a, 25, region("SNN2",1)
  157.     addProp gSNN2a, 26, region("SNN2",1)
  158.     addProp gSNN2a, 27,  LO(27,"QMG1R", 6, 27)
  159.     addProp gSNN2a, 28,  LO(28,"Q273V", 7, 28)
  160.     addProp gSNN2a, 29,  LO(29,"G426V", 8, 29)
  161.     addProp gSNN2a, 30,  LO(30,"G464V", 9, 30)
  162.     addProp gSNN2a, 31, LO(31, "G136V", 10, 31)
  163.     addProp gSNN2a, 32, LO(32,"G456H", 11, 32)
  164.     addProp gSNN2a, 33, LO(33,"G453V", 12, 33)
  165.     addProp gSNN2a, 34, LO(34,"G476V", 13, 34)
  166.     addProp gSNN2a, 35, LO(35,"GM49V", 14, 35)
  167.     addProp gSNN2a, 36, LO(36,"GM90V", 15, 36)
  168.     addProp gSNN2a, 37, LO(37,"G443V", 16, 37)
  169.     addProp gSNN2a, 38, LO(38,"G421V", 17, 38)
  170.     addProp gSNN2a, 39, LO(39,"GM84V", 18, 39)
  171.     addProp gSNN2a, 40, LO(40,"GM87V", 19, 40)
  172.     addProp gSNN2a, 41, LO(41,"GVIRV", 20, 41)
  173.     addProp gSNN2a, 42, LO(42,"GM91V", 21, 42)
  174.     addProp gSNN2a, 43, LO(43,"GM88V", 22, 43)
  175.     addProp gSNN2a, 44, LO(44,"GM10V", 23, 44)
  176.     addProp gSNN2a, 45, LO(45,"G536V", 24, 45)    
  177.     addProp gSNN2a, 46, region("SNN2",2)
  178.     addProp gSNN2a, 47, region("SNN2",2)
  179.     
  180.     set gSNN2b to [:] --Top Right North Night Sky
  181.     --    addProp gSNN2b, 4,  t("SNN4","Down")
  182.     --    addProp gSNN2b, 5,  t("SNN1","Left")
  183.     addProp gSNN2b, 6,  LO(6,"GC45R", 6, 27)
  184.     addProp gSNN2b, 7,  LO(7,"GM64V", 7, 28)
  185.     addProp gSNN2b, 8,  LO(8,"Q275V", 8, 29)
  186.     addProp gSNN2b, 9,  LO(9,"GCOMV", 0, 30)
  187.     addProp gSNN2b, 10, LO(10, "GMICV", 10, 31)
  188.     addProp gSNN2b, 11, LO(11,"G463V", 11, 32)
  189.     addProp gSNN2b, 12, LO(12,"YM3_V", 12, 33)
  190.     addProp gSNN2b, 13, LO(13,"G539V", 13, 34)
  191.     addProp gSNN2b, 14, LO(14,"G538V", 14, 35)
  192.     addProp gSNN2b, 15, LO(15,"GM94V", 15, 36)
  193.     addProp gSNN2b, 16, LO(16,"G448V", 16, 37)
  194.     addProp gSNN2b, 17, LO(17,"G415V", 17, 38)
  195.     addProp gSNN2b, 18, LO(18,"GWHIV", 18, 39)
  196.     addProp gSNN2b, 19, LO(19,"G371V", 19, 40)
  197.     addProp gSNN2b, 20, LO(20,"G331V", 20, 41)
  198.     addProp gSNN2b, 21, LO(21,"Q100R", 21, 42)
  199.     addProp gSNN2b, 22, region("SNN2",0)
  200.     addProp gSNN2b, 23, region("SNN2",0)
  201.     addProp gSNN2b, 24, region("SNN2",2)
  202.     addProp gSNN2b, 25, region("SNN2",2)
  203.     addProp gSNN2b, 27,  LO(27,"GC45R", 6, 27)
  204.     addProp gSNN2b, 28,  LO(28,"GM64V", 7, 28)
  205.     addProp gSNN2b, 29,  LO(29,"Q275V", 8, 29)
  206.     addProp gSNN2b, 30,  LO(30,"GCOMV", 9, 30)
  207.     addProp gSNN2b, 31, LO(31, "GMICV", 10, 31)
  208.     addProp gSNN2b, 32, LO(32,"G463V", 11, 32)
  209.     addProp gSNN2b, 33, LO(33,"YM3_V", 12, 33)
  210.     addProp gSNN2b, 34, LO(34,"G539V", 13, 34)
  211.     addProp gSNN2b, 35, LO(35,"G538V", 14, 35)
  212.     addProp gSNN2b, 36, LO(36,"GM94V", 15, 36)
  213.     addProp gSNN2b, 37, LO(37,"G448V", 16, 37)
  214.     addProp gSNN2b, 38, LO(38,"G415V", 17, 38)
  215.     addProp gSNN2b, 39, LO(39,"GWHIV", 18, 39)
  216.     addProp gSNN2b, 40, LO(40,"G371V", 19, 40)
  217.     addProp gSNN2b, 41, LO(41,"G331V", 20, 41)
  218.     addProp gSNN2b, 42, LO(42,"Q100R", 21, 42)
  219.     
  220.     set gSNN2c to [:] --Top Right North Night Sky
  221.     --    addProp gSNN2c, 4,  t("SNN4","Down")
  222.     --    addProp gSNN2c, 5,  t("SNN1","Left")
  223.     addProp gSNN2c, 6,  LO(6,"G268V", 6, 27)
  224.     addProp gSNN2c, 7,  LO(7,"Q431R", 7, 28)
  225.     addProp gSNN2c, 8,  LO(8,"Q231I", 8, 29)
  226.     addProp gSNN2c, 9,  LO(9,"G297V", 9, 30)
  227.     addProp gSNN2c, 10, LO(10, "YM92V", 10, 31)
  228.     addProp gSNN2c, 11, LO(11,"GHRAR", 11, 32)
  229.     addProp gSNN2c, 12, LO(12,"Q165R", 12, 33)
  230.     addProp gSNN2c, 13, LO(13,"GHERV", 13, 34)
  231.     addProp gSNN2c, 14, LO(14,"G307V", 14, 35)
  232.     addProp gSNN2c, 15, LO(15,"GM81V", 15, 36)
  233.     addProp gSNN2c, 16, LO(16,"GM82V", 16, 37)
  234.     addProp gSNN2c, 17, region("SNN2",1)
  235.     addProp gSNN2c, 18, region("SNN2",1)
  236.     addProp gSNN2c, 19, region("SNN2",0)
  237.     addProp gSNN2c, 20, region("SNN2",0)
  238.     --    addProp gSNN2c, 21,  t("SNN1","Left")
  239.     addProp gSNN2c, 27,  LO(27,"G268V", 6, 27)
  240.     addProp gSNN2c, 28,  LO(28,"Q431R", 7, 28)
  241.     addProp gSNN2c, 29,  LO(29,"Q231I", 8, 29)
  242.     addProp gSNN2c, 30,  LO(30,"G297V", 9, 30)
  243.     addProp gSNN2c, 31, LO(31, "YM92V", 10, 31)
  244.     addProp gSNN2c, 32, LO(32,"GHRAR", 11, 32)
  245.     addProp gSNN2c, 33, LO(33,"Q165R", 12, 33)
  246.     addProp gSNN2c, 34, LO(34,"GHERV", 13, 34)
  247.     addProp gSNN2c, 35, LO(35,"G307V", 14, 35)
  248.     addProp gSNN2c, 36, LO(36,"GM81V", 15, 36)
  249.     addProp gSNN2c, 37, LO(37,"GM82V", 16, 37)
  250.     buildStarMapButtons2
  251. --    sort gSNN1a
  252. --    sort gSNN1b
  253. --    sort gSNN1c
  254. --    sort gSNN2a
  255. --    sort gSNN2b
  256. --    sort gSNN2c
  257. --    sort gSNN3a
  258. --    sort gSNN3b
  259. --    sort gSNN4a
  260. --    sort gSNN4b
  261. --    sort gSNS1
  262. --    sort gSNS2
  263. --    sort gSNS3
  264. --    sort gSNS4
  265. --    sort gSS1a
  266. --    sort gSS1b
  267.   end if 
  268. end buildStarMapButtons
  269.  
  270. on ink c,sc
  271.   return birth(script "ink",c,sc)
  272. end ink
  273.  
  274. on hi c,L,c1,c2
  275.   return birth(script "hilite",c,L,c1,c2)
  276. end hi
  277.  
  278. on art c,n,r,p,sc
  279.   return birth(script "art",c, n,r,p,sc)
  280. end art
  281.  
  282. on LO c,theObjectFrame,c1,c2
  283.   return birth(script "little objects",c,theObjectFrame,c1,c2)
  284. end LO
  285.  
  286. on region f,o
  287.   return birth(script "region",f,o)
  288. end
  289.  
  290. --on t w,h
  291. --  return birth(script "transition",w,h)
  292. --end t
  293.